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Introduction 



Most computer puzzles are versions of ordinary word games, such as 
crossword puzzles or anagrams, that draw their vocabulary from the world 
of computing. The puzzles here are different They provide games, amuse- 
ments, and challenges from within the world of computing itself and 
require some familiarity with Commodore BASIC. The puzzles in this first 
volume are quite simple, though we plan additional volumes with more 
complex and sophisticated puzzles. You do not have to be a computer buff 
or a skillful programmer to solve them. In fact, they would be an ideal 
complement to any text or reference manual for a person of any age who is 
just learning BASIC and is beginning to feel the power of creating programs. 

We have included very few PEEKs or POKEs in the puzzles; however, 
each time we use one it is fully explained. Also the programs that are the 
bases of the puzzles are no longer than 1 5 lines. These puzzles are designed 
to help you think in BASIC, learn to read a program, and understand 
something about program structure. All the commands in the book are 
included in the Commodore BASIC Reference Manual or in any introduc- 
tory text on BASIC. Since the programs are not that long or complex 
(though some are tricl^ and not easy to solve automatically), many can be 
done with a paper and pencil. In fact, it's a good idea to try to think through 
many of these problems without using your computer. Program design is a 
mental activity that is computer-assisted and working on computer prob- 
lems without using a computer can help develop that skill. In order to help 
you sketch out solutions, we've provided some formats designed to help 
with problem solving. They are in the Appendix to the book and you should 
feel free to copy them. 

There are five different types of problems in the book: Error State- 
ment Problems, Line Scrambles. Line Number Scrambles. Missing Code 
Lines, and Control Character Graphics Design Problems. Some of the pro- 
grams deal with numbers; others deal with words. Color and graphics are 
often used. The programs themselves have been selected to illustrate cer- 
tain aspects of Commodore BASIC such as nested loops, subroutines, 
branching, and the mix of graphics, words, and numbers. You might even 
find it useful to incorporate some of the smaller programs here as parts of 
larger programs you build yourself. 

The answers to the programs will provide explanations of what the 
program does and give hints that might help you solve other problems. 
They will also give you a correct program. Remember, however, that 
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often there is more than one correct answer and, if you feel correct, 
run your program. If it worlcs you have come up with another 
soiutionll 

Here is a simple example that should give you a sense of the specific 
nature of the different types of puzzles in the book: 

10 PRINT ''ON R SCRLE OF 1 TO 10'' 
20 PRINT "HOW DO YOU FEEL TODRY?" 
30 PRINT ''1 IS MISERRBLE, 10 GRERT" 
40 INPUT X 

50 IF X>5 THEN PRINT "HRVE FUN!":END 
60 PRINT "MRYBE THIS WILL HELP.." 
70 PRINT "THINGS RRE NEVER RS BRD" 
80 PRINT "RS THEY SEEM." 
90 PRINT "TRKE R DEEP BRERTH. COUNT" 
100 PRINT "TO 10 RND SLOWLY SMILE" 

This program asks how you feel on a scale of 1 to 10. 1 being miser- 
able and 10 great. If you answer with a number above 5 the computer 
prints "HAVE FUN!" and the program ends. If you answer 5 or less and 
indicate you are not feeling too great, the computer gives you some friendly 
advice on how to cope with being down. 

This program can be used to illustrate the nature of different puzzle 
types in this book. 



Error Code Puzzles 

In these puzzles, there will be an error for you to figure out It could be on 
line 50. for example, which would then read: 

50 errorlFX > 5:THEN PRINT"HRVE FUN"END 

The error would be the colon between 5 and THEN. 
Here's another possible error. Can you figure it out? 

30 error PRINT "1 IS MISERRBLE, 10 GRERT 



You probably guessed that the error was the missing quotation marks 
at the end of the line. 



Line Scrambles 

In these puzzles, one line is all scrambled up. You have to unscramble it to 
make the program work. Here's a scramble of line 50: 

50 PRINT 5 THEN > "X" END FUN IF :HRVE 

Throughout the book there will either be descriptions of how the 
program will run or pictures of what should appear on the screen. These are 
called screen dumps. If you leaf through the book you'll see lots of them. 



Line Number Scrambles 

Instead of just scrambling a line, these puzzles mix up all the line numbers. 
You have to renumber each line to put the program in order and have it run 
as planned. This requires some thought and experimentation and it is here 
that you are likely to find more than one correct unscrambling of a 
program. 

A very simple scramble would reverse all of the line numbers so that 

line 10 becomes line 100 
line 20 becomes line 90 
line 30 becomes line 80 
etc. 

However, you are not likely to come upon such patterned scrambles. 
The line number patterns do not provide hints to the unscrambling of the 
lines. You have to think through to the program structure to solve the 
puzzle. 



Missing Code Lines 

In this variation on program puzzles, one line of code is missing. It might be 
in our sample: 



40 PRINT "?????????????'' 

or 

80 PRINT "?????????????"' 

PRINT milllimiir' is the indicator of the nnissing code line. 
That does not mean that PRINT.", or ? necessarily appear on the missing 
line. 



Shift Character Graphics Design Problems 

In addition to letters, your Commodore 64 has graphics characters on the 
keyboard. You can get this set by holding down the shift key and pressing 
any of the other keys, or by holding down the Commodore key and doing 
the same things. Notice that each key on the Commodore keyboard has 
two graphics characters printed on it. To get the character on the left, you 
press: 

H [KEY] 



To get the character on the right you press: 
a [KEY] 

Thus for the A key 
[A] gives you: H 
and 

9 [A] gives you: 



A 




a 



These characters can be combined to make interesting pattems and 
drawings. They can also be used within your program. Here's a short pro- 
gram that produces a fancy design using control character graphics. The 
screen dump shows you how the program looks when it is running. 



hH HH HH -TTThhHHH-*-*^ HH HH HH 
-rrrH-HHH-^ hH HH HH -^rT^^H^^-^ 
HH HH HH -rrrhhHHH-^ HH hH HH -rr 
tI-HHMH-^ HH HH HH xtt h h HHH-^-*-^ hf 
•\ H-i TTThhHHH-^ HH HH HH -rrrh 

HHHH-^ HH HH HH Trrht-HHH-^ HH 
HH HH -rrrH-HHH-^ HH HH HH tttH-H 
MHH-^ HH HH HH ^-TT^^H^^-^ HH H- 
H HH -PTTl■l•H^^■^ HH HH HH -^TT^^H^ 
H-^ HH HH HH •TTT^^H^^-^ hh hh 
HH tttH-HHH-^ hH hh hH -rrr I- ^ HHH-»- 
HH HH HH -rrrl-hHHH-^ HH HH H- 
H •T-^TH■H^^•^ HH HH HH Trrl-hHMH'^ 

hH HH HH TTTFhHHH-^ HH HH HH 
-rrrhhHHH-^ HH HH HH -r^T^^H^^-*-*-*• 
HH HH HH TTi-f-hHHH-^ hH HH HH tt 
tH-HHH-a-i-*- hh hh hh tttH-HHH-^ H 
A T-r^^^H^^-^ hh hh hh T-rrh 

l-HHH-^ HH HH HH TTT^^H^^•^ HH 
hHHH-^ HH HH HH "rrrhhHHH-^ HH 
HH HH -rTT^^H^^-^ hh hh hh T-rrhhh 
HHH-^ HH HH HH -rTTHrnHH-^ HH H- 
H HH tttH-HSHJ-*-*- HH HH HH TT-rl-hHH 
H-^ HH HH HH -rrrhl-HHH-^ HH HH 




10 PRINT" 
20 PRINT" 
30 GOTO10 



l-hHHH 
HH HH 



RERDV. 



A number of interesting puzzles can be created using character gra- 
pfiics. A simple one would provide you with a screen dump and ask you to 
create a program to produce that pattem. There are a number of other 
challenges in this section as well. 

Now that you have a sense of the kinds of challenges in this book try 
your hand at solving them. Each section begins simply and then moves on 
to more complex demands. The answers and their explanations are at the 
end of each chapter. I hope you have as much fun solving the puzzles as 1 
had inventing them. 
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Error Puzzles 

or getting your program 
to do what you plan 



One of the most frustrating things about learning to program a com- 
puter is that you can worl< hard at a program and make a tiny 
mistake that throws the whole thing off. it is particularly annoying if you 
have not internalized the programming language you are using. This first 
section contains some puzzles that embody the simplest mistakes every- 
body makes when learning to program. These mistakes should be looked at 
as puzzles to solve rather than as signs of your inability to master 
computing. 
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A SIMPLE CRYSTAL BALL 



This program asks whether you like the number 3 or 4 better. When run. 
this is how it is supposed to respond: 




RUN 

WHICH NUMBER IS VOUR FAVORITE 

msm OF THESE two: 3 or 4 wmm 
mmm vou have mvstical powers mmm 



mmm readv. 

"^mm run 

mm WHICH NUMBER IS VOUR FAVORITE "mm 

wmm OF THESE TWO: 3 OR 4 mm 

? 4 

vou ARE DEEP AND INTUITIVE 




However, your program simply bombs when you input the number 3. 
it seems ok if you input 4: 



mmm run 

mm^ WHICH NUMBER IS VOUR FAVORITE ^» 
OF THESE TWO: 3 OR 4 »W 

'wm^ ? 3 mm 
mmm 

mm RE ADV. 

RUN I^M^ 

mmm which number is vour favorite mmm 
tmm OF these two: 3 or 4 ^^^m 
4 

mmm vou are deep and intuitive 



w^m RE adv. mmm 



Here is the program. What is the mistai<e? 



10 PR I NT "WHICH NUMBER IS VOUR FAVORITE 
20 PR I NT "OF THESE TWO'- 3 OR 4" 
30 INPUTX 

40 IFX=3THENGOTO1010 

50 IFX=4THENGOTO1500 

1000 PRINT"VOU HAVE MVSTICRL POWERS" 

1010 END 

1500 PRINT"VOU ARE DEEP AND INTUITIVE" 
1510 END 

READV. 
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FILL IT UP 



In this program the intent was to fill the screen up with a random 
distribution of characters. 

Instead you got this on the screen: 



RUN 

m '^"^ ^ n 

^; ^ ^ ^ ^ ^ ^ 

^ ^ ^ ^ ^ ^ ^ 

m ^ ^ 

^ ^ ^ ^ 

^ m 
^ M mm 

m ^ n m 

mm ^ ^ 



How could you change this program to give you the full screen? 



10 PRINTCHR$<19); 

20 V=RWD<:i>*12+l 

30 FORZ= 1 TO V : PR I NT : NEXT 

40 PRIHTTRB(RND<l>*39>"r; 

50 GOTO 10 

REflDV. 
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COUNT DRACULA 



You write a simple program asking your friend's name. You want the 
computer to tell your friend that he or she is a nice person. One of your 
friends decides to play around and type in Count Dracula and here is what 
happens with your program: 



RUN 

WHAT IS VOUR NAME? COUNT DRACULA mm 
VOU ARE A NICE GENTLE PERSON 





10 IHPUT"WHflT IS VOUR HflME";fl$ 

20 PRINT"VOU ARE fl NICE GENTLE PERSON" 

30 PRINTR 

RERDV. 



How can you fix your program so that it gives Dracula his full compli- 
ments like this? 




mmm what is vour name? count dracula 
vou are a nice gentle person 

COUNT DRACULA 
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STRING THE VARIABLES ON 



You want to print out STRING VARIABLE running diagonally down the 
screen like this: 




However, what you get is this: 
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RUN 

S 

ST 
STR 
STRI 
STR IN 
STRING 
STRING 
STRING V 
STRING Vfi 
STRING VflR 
STRING VflR I 
STRING VflRIfl 
STRING VflRIflB 
STRING VflRIflBL 
STRING VARIABLE 

RE ADV. 



Here's your program. What went wrong? 



10 R$=" STRING VflR I ABLE" 
20 F0RX«1T015 
30 PRINTTflB<X>MID$<fl$.l.>0 
40 NEXT 

REflDV. 
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IN FIVE YEARS 

This simple program is supposed to ask a person's age and then tell them 
how old they will be in 5 years. It should run like this: 




RUN 

HOW OLD ARE VOU? 12 MM 
IN FIVE VEflRS VOU WILL BE 
17 




Instead it runs like this: 




RUN 

^^^n HOW OLD RRE VOU? 12 mm 
mmm in five vears vou will be 

5 




16 



HIP. HIP. HOORAYI 

This is a reverse puzzle. Here is a program that will print HIP! HIP! HOO- 
RAY! three times as in the screen dump: 




10 F0Rfl=lT03 
20 F0RB=1T02 
30 PRINT"HIPI" 
40 NEXTB 

50 PRINT"HOORflV!" 
60 NEXTfl 

RERDV. 



Now here are three similiar screen dumps that almost do what the pro- 
gram does. Can you construct three programs that lead to these screen 
dumps? 
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HOORflV! 
HOORflV! 
HIP! 

'imm HOORflV! 

mm HOORflV! 

HIP! 
'^^m HOORflV! 
MM HOORflV! 

^mm HIP! 




B 





RUN 
HIP 
HIP! 
HIP! 
HOORflV! 

?NEXT WITHOUT FOR 
REflDV. 



ERROR IN 60 
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Answers 

1 — 

At line 40 you instructed tfie program to GOTO line 1010 which ended the 
progrann. You always have to be careful that you have your program jump 
to exactly the lines you want it to. It makes sense to check all GOTO 
statements if you have a program that doesn't run properly. Here's the 
program with the intended reference: 



10 PR I NT "WHICH NUMBER IS VOUR FAVORITE" 
20 PR I NT "OF THESE TWO: 3 OR 4" 
30 INPiJTX 

40 IFX=3THENGOTO1000 

50 IFX=4THENGOTO1500 

1000 PRINT"VOU HAVE MVSTICflL POWERS" 

1010 END 

1500 PRINT"VOU RRE DEEP RND INTUITIVE" 
1510 END 

REflDV. 



2 

The problem was at line 20. You only used half the screen. You have to be 
careful about the screen dimensions. At line 20 the number 12 should be 
24 as in this prograni: 



10 PRINTCHR$<19>; 

20 V=RND<1>*24+1 

30 F0RZ=1T0V: PRINT: NEXT 

40 PRINTTflB(:RND<l)*39)"^$"; 

50 GOTO 10 

REflDV. 
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Here is a program that will give Dracula iiis due: 

10 INP1JT"WHRT IS VOUR HflME";R$ 

20 PRIHT"VOU RRE fl NICE GENTLE PERSON" 

30 PRINTfl-l: 

RERDV. 



Notice that at line 10 there is an A$ indicating that there will be an 
alphabetic input. However, on line 30 the $ has been dropped so that you 
get a returned instead of a word. It is important to check that letter 
variables are properly referenced by including the $ after the variable name. 



Here is a program that will give you what you wanted: 



10 R$=" STRING VRRIRBLE" 
20 F0RX=1T015 

.30 PR I NTTRB <. X > tl I B$ < fit X , 1 > 
40 NEXT 

RERIiV. 



Notice that at line 30 the midstring command M1D$(A.B.C) had its 
variables reversed. Instead of MID$(A$.X.l ). which gives you what you 
want, the error program had MID$(A$.1.X). Although this was an error in 
the context of this puzzle, the error itself makes for an interesting program. 
It is a technique worth using in other programs. Discoveries like this should 
not be discarded as errors but saved for other programs where they might 
be useful. 
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10 INPUT "HOW OLD 
20 PRINT" IN FIVE 
30 PRINTX+5 

REflDV. 



ARE VOU";X 

VERRS VOU NILL EE 



Notice that in the error program you INPUT A and then added +5. 
However, there was no X to add anything with. Your variables did not agree 
so the connputer printed 5 no matter what age was entered. When line 1 
was changed to: 

10 INPUT ''HOM OLD RRE YOU^^;X 

the program wori<ed. it is essential to check all of your variables and see 
that they are properly referenced to each other. This is a basic principle of 
programming. 
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A 

10 F0Rfl=lT02 
20 F0RB=1T03 
30 PRINT"HIP!" 
40 NEXTB 

50 PRINT"HOORflV!" 
60 HEXTfl 

REflDV. 



10 F0R1=I=1T03 

20 F0RE=1T02 

30 PRINT'-HOORflV!" 

40 NEXTB 

50 PRINT"HIP!" 

60 NEXTfl 

REflDV. 
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10 F0Rfi=lT03 
20 F0RB=1T02 
30 PRIHT"HIP!" 
40 NEXTR 

50 PRINT"HOORRV!" 
60 NEXTB 

REflDV. 



Notice that the differences in these programs all have to do with the 
way in which FOR/NEXT loops are used. You always have to be careful that 
you go through the loop the number of times you plan to and that each 
FOR statement has a NEXT statement to continue and eventually close the 
loop. A simple FOR/NEXT mistake can turn an otherwise elegant program 
into a mess. 
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Single Line 
Scrambles 



2S 



The puzzles in this section consist of short programs with one line all 
scrambled up. There is a screen dump accompanying each program so 
that you can tell what the program is supposed to do. An ERROR state- 
ment marks the scrambled line so you don't have to figure it out for 
yourself. Before we begin, here are examples of scrambled and unscrambled 
lines: 

Scrambled: 

50 REM ERROR X=LET ( ) ( ) ^RNDIOINT 
Unscrambled: 

50 LET X=INT(RND(1)^10) 
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SIMPLE MULTIPLICATION 

We'll start with a simple multiplication program. As you can see from the 
screen dump, the program gives you multiplication problems as well as an 
opportunity to try again if you get the wrong answer. 



RUN 

HERE^S fl SIMPLE MULTIPLICATION PROBLEM 
9 TIMES 6 = 

? e? 

TRV flOfllN 
? 54 

GOOD GOING! HERE'S ANOTHER EXAMPLE: 
HERE^S A SIMPLE MULTIPLICATION PROBLEM 



8 TIMES 1 = 

7 8 ^^^^ 

GOOD GOING! HERE'S ANOTHER EXAMPLE: 

HERE'S A SIMPLE MULTIPLICATION PROBLEM KM 

5 TIMES 3 = 

? 20 

TRV AGAIN 
? ffl 




Here's the scrambled program: 

10 PRINT "HERE^S R SIMPLE MULTIPLICATION PROBLEM" 
20 PRINT 

30 LET:=<:=iNTc:RND<rr*i0> 

40 LETV= I NT RND ( 1 > * 1 ) 
50 PRINTX.:"TIMES";V;" = " 
60 INPUTZ 

70 REM ERROR- XVZ*THEN100IFGOTiD= 
80 PRINT"TRV RGRIN":GOTO60 

100 PR I NT "GOOD GOING! HERE''S RNOTHER EXRMPLE:" 
110 GOTO 10 

RERDV. 
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SPLIT SCREEN 



This split screen word puzzle prints one thing on one side of the screen and 
another on the other side as illustrated in the screen dump: 



NORD PUZZLE 
ORD PUZZLE 
RD PUZZLE N 
D PUZZLE WO 
PUZZLE WOR 
PUZZLE WORD 
UZZLE WORD 
ZZLE WORD P 
ZLE WORD PU 
LE WORD PUZ 
E WORD PUZZ 



STRING VflRIflELE 
TRING './RRIflBLE 
RING VflRIflBLE S 
ING VflRIPlBLE ST 
NG VflRIflBLE STR 
G VflRIflBLE STR I 
VflRIflBLE STRIN 
VflRIflBLE STRING 
flRIflBLE STRING 
RIflBLE STRING V 
IflBLE STRING Vfl 



mmm REflDv. 




Here is the scrannbled program: 



10 LETfii:=" WORD PUZZLE" 
20 LETB$=" STRING VRRIflBLE" 
30 PRINTCHR$C147) 
40 F0RX=11T01STEP-1 

50 PR I HTTflB ( 4 > R I GHTf. < m , X > LEFT$ < fl$ . 1 1 -X > ; 

60 REM ERROR- LEFT$B$< < < ) > )TflB4PRINTl 1 . X.. XRIGHT*20B$ 

70 NEXT 

RERDV, 
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HOURS TO SECONDS 

This simple program converts fiours to seconds. It asks you fiow many 
seconds there are in any number of hours. It won't ask for seconds in more 
than 1 hours since the calculating gets boring at that point; nevertheless, 
it could. 



RUN 

THERE ARE 60 MINUTES IN AN HOUR. 

THERE ARE 60 SECONDS IN fl MINUTE. 
mm HOW MflNV SECONDS ARE THERE IN 5 HOURS? 

? 13000 
mm ABSOLUTELY ! 

»m Mm 

RE ADV. Mm 

RUN 

THERE ARE 60 MINUTES IN AN HOUR. WM^ 

THERE ARE 60 SECONDS IN A MINUTE. 
WW HOW MANV SECONDS ARE THERE IN 10 HOURS? 
W^m ? 3600 ^» 

w« NOT QUITE. mm^ 
? 36000 

ABSOLUTELY! 




Here's the scrambled program: 

10 PRINT-THERE ARE 69 MINUTES IN AN HOUR." 
20 PR I NT "THERE RRE 60 SECONDS IN fi MINUTE." 
30 LETX== I NT (. RND < 1 > # 1 > + 1 

40 PR I NT "HOW MRNV SECONDS RRE THERE IN"X"HOURS?" 
50 INPUTV 

60 REM ERROR- PRINT=THEN ! END"60RBSOLUTELV60*IF*X" : V 
70 PR I NT "NOT QUITE. ":GOTO50 

RERDV. 
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QUICK CALCULATION 

This program sees if you can do simple number manipulations under some 
time pressure. It mixes multiplication with simple addition by asking you 
to add 1 to your times answer. Of course, any number could be added and 
the challenge could be made more complex. 




Here is the scrambled program: 

10 PR I NT "CAN VOL! CflLCULRTE QUICKLV?" 
20 PR I NT" LET --S SEE." 
30 PRINT 

40 PRINT"WHRT IS.." 
50 LETX=:INT(RND<1>*50> 
60 PRINT 

70 REM ERROR- ";;" + "=•' PR I NT2XT I MES > CHR$ < 1 57 > < 1 
80 FORZ=1TO1500-.NEXT 
90 PRINT 

100 INPUT" WHAT IS VOUR ANSWER". ;V 

110 IFV=<2*X>+1 THENPRINT "VOU GOT IT!!!":END 

130 PRINT"TRV flGflIN.":GOTO100 

REflDV. 
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SIMPLE NUMBER COMPARISON 

This is a simple number comparison game for young cliildren. it asks 
whether one number is greater than another. If you look closely at the 
program you'll see that the computer will never select two equal numbers. 
It teaches the use of > and< . 




RUN 

HERE'S fl SIMPLE NUMBER GAME: 
IS 10 GREATER OR LESS THAN 

TVPE > IF IT IS GREATER AND < IF IT 
IS LESS 

? > 

VOU GOT IT 

RE ADV. 

RUN 

mmm HERE'S A SIMPLE NUMBER GAME- 
mm^ IS 10 GREATER OR LESS THAN 8 



TVPE > IF IT IS GREATER AND < IF IT 

mmm is less 
? ■ 




10 PR I NT "HERE'S R SIMPLE NUMBER GAME:" 
20 REM ERROR- X=RND< INT<20)+LET)if.l 
30 IFX=10THENGOTO20 

40 PRINT" IS 10 GRERTER OR LESS THflN";X 
50 PRINT 

60 PR I NT "TVPE > IF IT IS GRERTER AND < IF IT IS LESS" 

70 INPIJTR$ 

80 IFX<10THEN1000 

90 IFXM0THEN2000 

100 NEXT 

1000 IFR$=">"THENPRINT"V0U GOT IT": END 
1010 PRINT"SORRV. TVPE RUN RND TRV RGRIN IF VOU LIKE. 
"••END 

2000 IFR$="<"THENPRINT"VOU GOT IT": END 
2010 PRINT"SORRV. TVPE RUN RND TRV RGRIN IF VOU LIKE. 
" : END 

RERDV. 
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MINUTE/DAY CONVERSION 

Here's a minute/day conversion program that tells you how many minutes 
there are in any number of days. It does not quiz you but answers your 
question instead. 



RUN 

HERE-S fi PROGRfiM THAT WILL TELL 
VOL! HOW MflNV MINUTES THERE flRE IN 
flNV NUMBER OF DflVS. 

HOW MflNV DflVS? 3 




THERE flRE 4320 MINUTES IN 3 DflVS. 
DO VOU WflNT TO CHflNGE THE NUMBER OF ^« 

mmm davs? mm 

? VES 

HOW MANV DAVS? 7 



THERE ARE 10080 MINUTES IN 7 DAVS. ^« 
DO VOU WANT TO CHANGE THE NUMBER OF 
DAVS? 
? NO 




Here is the scrambled program: 

10 PR I NT "HERE'S fi PROGRfiM THfiT WILL TELL" 
20 PR I NT "VOU HOW MfiNV MINUTES THERE fiRE IN" 
30 PR I NT "fiNV NUMBER OF iDfiVS." 
40 PRINT 

50 INPUT "HOW MfiNV DfiVS";X 
60 GOSUB500 

70 PR I NT "DO VOU WfiNT TO CHfiNGE THE NUMBER OF DfiVS?" 
80 INPUTfi* 

90 IF fi$=" VES "THEN50 
100 END 
500 PRINT 

510 REM ERROR- X"X60PRINT"THERE*MINUTES*DfiVS""IN"fiRE";24 
520 RETURN 

REfiDV. 
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NUMBER STRING 

This puzzle challenges you to add a string of six nunnbers together quickly. 




RUN 

HERE IS fl LIST OF NUMBERS 

TRV TO ADD THEM TOGETHER QUICKLV mm 

15 7 8 3 W^M 

WHAT IS VOUR ANSWER? 17 mm 

mmm trv once more. 

mm^ WHAT IS VOUR ANSWER? 30 ^» 
mm VOU^VE GOT IT 



wmm READV. mfm 



Here is the scrannbled program: 

10 PR I NT "HERE IS LIST OF NUMBERS" 

20 PR I NT "TRV TO flUD THEM TOGETHER QUICKLV" 

30 F0RZ=1 TO 1000: NEXT 

40 DIMR<6> 

50 F0RX=:1T06 

60 REM ERROR- flX<<(RNDINT>l)>10*= 
70 PRINTR(K>; 
80 NEXT 

90 FORZ=1TO2000-.NEXT 
100 PRINT 

110 INPUT "WHAT IS VOUR ANSWER" ;V 

120 IFV=fl<l>+fl<2>+fi<3)+fl<4>+fl<5>+fi<6>THENPRINT"V0U'VE 
GOT IT": END 

130 IFVOfl(:i>+fl':2>+A<3>+fl<4>+R<5>+fl<6>THENPRINT"TRV 
ONCE MORE.": GOTO 110 

READV. 

33 



8 



COUNT THE DOTS 

This is a dot counting ganne. 




mm HON MflNV DOTS ARE OH THE SCREEH? 

mmm vour guess? 10 

mm^ EXflCTLV ! ! ! 




Here is the scrambled program: 

10 PRINT "HOW MflNV DOTS ARE ON THE SCREEN?" 

20 LET X=INT<RND(1>*15>+1 

30 F0RV=1T0X 

40 REM ERROR- " PRINTti"; 

50 NEXT 

60 PRINT 

70 INPUT "VOUR GUESS" ;Z 

80 IFZ=XTHENPRINT"EXRCTLV! ! ! " ^END 

90 PRINT"COUNT RGRIN ":GOTO70 

REflDV. 
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RIDICULOUS 

This program can print the word "RIDICULOUS" any nunnber of times, 
perhaps a ridiculous venture but one whose structure has use in some 
programming contexts. 




RUN 

W» HOW MRNV TIMES WOULD VOU LIKE ME TO 
PRINT VOUR NAME OR flNV OTHER WORD? 
? 35 

WHAT WORD WOULD VOU LIKE ME TO PRINT Wmm 

35 TIMES? mm 

"^mmk ? RIDICULOUS MW 

mm^ RIDICULOUS ridiculous RIDICULOUS RiDicuL "mm 
mmi ous RIDICULOUS ridiculous ridiculous rid 

Wm^ ICULOUS RIDICULOUS RIDICULOUS RIDICULOUS mm 

mmm ridiculous ridiculous ridiculous ridicu ism^ 

LOUS RIDICULOUS RIDICULOUS RIDICULOUS Rl Wmm 
WMm D ICULOUS RIDICULOUS RIDICULOUS RIDICULOU 

mmm s ridiculous ridiculous ridiculous ridic 

ULCUS RIDICULOUS RIDICULOUS RIDICULOUS R 
IDICULOUS RIDICULOUS RIDICULOUS RIDICULO 
US RIDICULOUS RIDICULOUS 

mmm read v. 
■ 




Here is the scrambled program: 

10 PR I NT "HOW MflNV TIMES WOULD VOU LIKE ME TO" 
20 PR I NT "PR I NT VOUR NAME OR RNV OTHER WORD?" 
30 INPUTX 

40 PR I NT "WHAT WORD WOULD VOU LIKE ME TO PRINT "X" TIMES?" 
50 INPUT R$ 

60 REM ERROR- =XT01VF0R 
70 PRINTR$" ".: 
80 NEXT 

RERDV. 
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BARBER'S PARADOX 

This little scramble is a version of the classical Barber's Paradox: There is a 
barber in a town who shaves all and only people in the town who don't 
shave thennselves. Does he shave himself? 

I've taken the paradox to school you might say: 



JUL I ft IS R KIND AND LOVELV PERSON. 
SHE DOES HOMEWORK FOR ALL RND ONUV 
PEOPLE WHO DON^T DO HOMEWORK FOR 
THEMSELVES. 

DOES JULIfl DO HER OWN HOMEWORK? NO 

THEN SHE DOES DO IT. 

JULIR IS fl KIND RND LOVELV PERSON. 
SHE DOES HOMEWORK FOR RLL RND ONLV 
PEOPLE WHO DON^'T DO HOMEWORK FOR 
THEMSELVES. 

DOES JULIfl DO HER OWN HOMEWORK? VES 
THEN SHE DOESN-T DO IT. 




Here is the scrambled program: 



10 PRINT 

20 PR I NT "JULIfl IS fl KIND flND LOVELV PERSON." 
30 PR I NT "SHE DOES HOMEWORK FOR flLL AND ONLV" 
40 PR I NT "PEOPLE WHO DON-'T DO HOMEWORK FOR" 
50 PR I NT "THEMSELVES. 

60 INPUT "DOES JULIfl DO HER OWN HOMEWORK" ; fl|: 
70 PRINT 

80 REM ERROR- 10 " .THENGOTO" fl* =DOESN^TIF"SHEVES 

:PRINT"ITDOTHEN 
90 IFfl$="NO"THENPRINT"THEN SHE DOES DO IT.": GOTO 10 



REflDV. 
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Answers 

— 1 — 



10 PRINT "HERE^S fl SIMPLE MULTIPLICATION PROBLEM" 
20 PRINT 

30 LETX=INT<RND<1)#10> 
40 LETV=INT<RND<1)*10> 
50 PRINTX; "TIMES" ;v;"=" 
60 INPIJTZ 

70 IFZ«X*VTHENGOTO100 

80 PRINT"TRV flGRIN" :GOTO60 

100 PR I NT "GOOD GOING! HERE''S ANOTHER EXAMPLE:" 
110 GOTO10 

RE ADV. 



As you can see. line 70 (the scrambled line) checks for correct answers 
using the variable Z which is the answer you input. If Z=X*Y then you got 
the program and are sent to line 100 for congratulations and a chance at 
another example. If Z >< X*Y then the program moves to line 80 which 
sends you back to the problem you missed. This little technique can be 
incorporated in games where you want to give people many chances to 
answer a question as well as to generate new questions. 
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10 LETfi**" WORD PUZZLE" 
20 LETB*=" STRING VflRIflBLE" 
30 PRINTCHRf<147) 
40 F0RX=11T01STEP-1 

50PRINTTflB<4>RIGHT*Cfl*.X);LEFT$<fl$.ll-X); 
60 PR I NTTflB < 20) R I GHT$ < B* , X+4 ) ; LEFT* < B* . 1 1 -X ) 
70 NEXT 

REPIDV. 
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The scrambled line 60 uses the TAB, RIGHTS, and LEFT$ comnnands. 
One strategy for going about unscrannbling the line is to figure out how 
these connmands are used in Commodore BASIC. For example. RiGHT$ and 
LEFT$ both take three variables separated by commas and surrounded by 
parentheses. This gives you a way of beginning to decipher the scrambling. 
Understanding structure is usually an aid to deciphering whether it has to 
do with line scrambles or secret codes. 



10 PRIHT"THERE ARE 60 MINUTES IN AN HOUR." 
20 PR I NT "THERE RRE 60 SECONDS IN fl MINUTE." 
30 LETX=INT<RND<1>*10>+1 

40 PRINT"HON MflNV SECONDS RRE THERE IN"X"HOURS?" 
50 INPUTV 

60 I F V=X*.60*60THENPR I NT " RBSOLUTELV ! " - END 
70 PR I NT "NOT QUITE. ":GOTO50 

RERDV. 



The key to unscrambling this puzzle is to know that you calculate the 
number of seconds in an hour using the formula X(the number of 
hours)*60*60 which is the conversion formula. This form of program can 
be changed to ask about converting feet or miles to inches, meters to 
centimeters, etc. It is a simple and generalizable form of a conversion quiz 
program. 



10 PR I NT "CRN VOU CRLCULRTE QUICKLV?" 
20 PR I NT "LETT'S SEE." 
30 PRINT 

40 PRINT"WHRT IS.." 
50 LETX=INT'::RND<1)*50> 
60 PRINT 
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70 PRINT" •.':2 TIMES" ;X;CHR$<157::'"> +1 = " 
80 Fi:iRZ=l TO 1500: NEXT 
90 PRINT 

100 INPIJT"WHRT IS VOUR flNSNER";V 

110 IFV=<2*X)+1 THENPRINT "VOU GOT IT!!!":END 

130 PRINT"TRV flORIN. " :GOTO100 

RERDV. 



The key to unscrambling this is to figure out that there is only one 
variable in this challenge. (2*X)+1 is the nnajor part of the reconstruction of 
the scranabled line. 



10 PR I NT" HERE •'S R SIMPLE NUMBER GRME'." 
20 LETX=INT<RND<:i>*20> 
30 IFX=10THENGOTO20 

40 PRINT" IS 10 GREATER OR LESS THflN";X 
50 PRINT 

60 PRINT"TVPE > IF IT IS GREATER AND < IF IT IS LESS" 

70 INPUTfll: 

80 IFX<10THEN1000 

90 IFX>10THEN2000 

100 NEXT 

1000 IFfl$=">"THENPRINT"VOU GOT IT":END 
1010 PRINT"SORRV. TVPE RUN AND TRV AGAIN IF VOU LIKE. 
":END 

2000 I Ffl$=:"<" THENPRINT "VOU GOT IT": END 
2010 PRINT"SORRV. TVPE RUN RND TRV RGR IN IF VOU LIKE. 
":END 

RE ADV. 



This is simply an unscrambling of the integer random number function 
in Commodore BASIC. Some beginning programmers confuse RND(1)*X 
which gives a decimal answer with iNT(RND(l)*X) which gives an integer. 
There are times when having integers is essential to a game or program. 
Also, it is important to pay attention to the placement of parentheses in 
the INT statement. A simple mistake like: 
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INT(RND(1) 

can cause quite a mess. Try to figure out the different effects of 
iNT(RND(1))*6). What you will see is the result of the fact that 
1NT(RND(1)) is always 0. 



10 PR I NT "HERE'S fl PROGRRM THAT WILL TELL" 
20 PR I NT "VOL! HOW MRNV MINUTES THERE RRE IN" 
30 PRINT"RNV NUMBER OF" DRVS. " 
40 PRINT 

50 INPUT "HOW MRNV DRVS";X 
60 GOSUB500 

70 PR I NT "DO VOU WRNT TO CHRNGE THE NUMBER OF DRVS?" 
80 INPUTR$ 

90 IF Rf="VES"THEN50 
100 END 
500 PRINT 

510 PRINT"THERE RRE "X*60*24" MINUTES IN"X"DRVS. " 
520 RETURN 

RERDV. 



Line 510 conabines calculation with printing and. like the previous 
conversion puzzle (number 3). can be used to perform many different types 
of conversions. In unscrambling this the thing to watch for is the placement 
of quotes and semicolons. A misplaced quote or semicolon can destroy an 
entire program. 



10 PR I NT "HERE IS R LIST OF NUMBERS" 

20 PRINT"TRV TO RDD THEM TOGETHER QUICKLV" 

30 FORZ= 1 TO 1 000 : NEXT 

40 DIMR<6) 
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50 F0RX=1T06 

60 fi<X> = IHT<:RND<l)*.10> 

70 PRIHTR<X); 

80 NEXT 

90 FORZ= 1 TO2000 NEXT 
100 PRINT 

110 INPUT"UHflT IS VOUR RNSWER'SV 

120 IFV=fl<l>+fl<2>+fl<3)+fic:4>+fl<5>+fi<6>THENPRINT"V0U''VE 
GOT IT": END 

130 IFVORCl)+fl<2>+R<:3>+fl<4>+fi<5)+fl<6)THENPRINT"TRV 
ONCE MORE.":GOTO110 

RERDV. 



This program makes use of a powerful aspect of Commodore BASIC, 
the array. A(X) is dimensioned on line 40 to contain six numbers. The 
scrambled line 60 places a random integer between and 10 in each 
position. That way. lists of numbers can be generated and used as in this 
program. Beginning and intermediate programmers should take advantage 
of the ability to store and use lists that this function provides. For examples 
of the use of anrays see your Commodore BASIC Reference Manual or 
look up arrays in a text if you are not already familiar with them. 
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10 PRINT "HOW riflNV DOTS RRE ON THE SCREEN?" 

20 LET X=INT<RND<1)*15)+1 

30 F0RV=1T0X 

40 PRINT"* 

50 NEXT 

60 PRINT 

70 INPUT "VOUR GUESS" J Z 

80 IFZ=XTHENPRINT"EXflCTLV! ! ! " :END 

90 PR I NT "COUNT flGflIN ":GOTO70 

REflDV. 
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This program is an example of how you can use SHIFT graphics charac- 
ters (in the case of this program SHIFT Q) in your program. It is worth 
exploring this extra graphics keyboard that your Commodore provides for 
you. It is the easiest of the different graphics modes that are available to 
you and can create interesting graphics with some experimentation. 



10 PPsINT"HCiW MRNV TIMES WOULD VOU LIKE ME TO" 
20 PR I NT "PR I NT VOUR NRME OR RNV OTHER WORD?" 
30 INPUTX 

40 PR I NT "WHAT WORD WOULD VOU LIKE ME TO PRINT "X "TIMES? 
50 INPUT m 
60 FORV^ITOX 
70 PRINTfl$" "; 
80 NEXT 

REflDV. 

This is a scramble of the FOR statement of the FOR/NEXT loop used 
in the program to produce the ridiculous repetition. Notice that the number 
of times through the loop (the X variable) changes each time you run the 
program. Most beginning programmers use fixed loops like FOR X=l TO 
59; but. sometimes it is more useful to change the number of times 
through the loop as the program is running. 
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10 PRINT 

20 PR I NT "JUL I fl IS fl KIND AND LOVELV PERSON." 
30 PR I NT "SHE DOES HOMEWORK FOR ALL AND ONLV" 
40 PR I NT "PEOPLE WHO DON'T DO HOMEWORK FOR" 
50 PR I NT "THEMSELVES. 

60 INPUT"DOES JULIA DO HER OWN HOMEWORK" ;A$ 
70 PRINT 

80 IFA*="VES"THENPRINT"THEN SHE DOESN'T DO IT.":GOTO10 
90 IFA*="NO"THENPRINT"THEN SHE DOES DO IT.":GOTO10 

READV. 
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The scrambled line 80. as well as line 90. make the paradox continue 
until you are bored and shut down the computer. However, these lines 
illustrate a technique you can add to many of the games and quizzes in this 
section. It will allow them to run many times instead of ending after just 
one play. 

Here's a very simple example: 

10 PRINT "'NHRT NUMBER IS THIS?^^ 

20 LET X=INT(RND(1)^20) 

30 INPUT Y 

40 IF X:=Y THEN PRINT^'GREfiT'^ :GOTO 10 

50 IF X <>Y THEN PRINT^TRY RGRIN^^:GOTO 30 

This way you have many guesses and can take a new turn once you 
guess con-ectly. 
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The puzzles in this section leave all the codes in a progrann intact. All 
they do is scrannble the line nunabers. These nunnbers are not 
scrambled according to any pattern, so there is no use trying to solve the 
puzzles by trying to figure out a pattern for transforming the line numbers. 
You have to pay attention to the screen dumps and try to put a program 
structure together that will do what the illustrations show. 

Scrambling line numbers of even the simplest programs can destroy 
them. For example, take this two-line program: 

10 PRINT "HO HO HO!"; 
20 GOTO 10 

This will fill the screen up with a jolly greeting. Reverse the line 
numbers and you get: 

10 GOTO 10 

20 PRINT "HO HO HO!"; 

This program will lock up at line 1 and stay there until you press the 
BREAK key. Nothing will happen. In the simplest way. this is an illustration 
of the importance of program structure in BASIC. Now for the puzzles. 
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I WILL NOT BEND 



This program prints a V shape and nnoves relentlessly down the screen 
printing "I will not bend," every 10 repeats of the V-form. Here is the 
screen dump and a scrambled version of the program. Unscramble the 
program and. if you feel like it, make it fancier. 




10 FORV»iTO10 
20 NEXT 

30 PRlNTTftB<X)"V 
40 GOTO10 

50 X-INT<RND<1)*38> 

60 PRIHTTflB(12)»I WILL NOT BEND." 

RERDV. 
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I'M TRYING TO BEND 



This simple variant on puzzle 1 produces a completely different result. You 
should be able to think through the difference and reconstruct the program 
that makes a bit of a curve. 




1 X«X+ 1 NT < RND < n *3 > - 1 
20 IFX<0THENX=38 
30 FORV=1TO10 

40 PRINTTflB<ll)"I'M TRVING TO BEND. 
50 GOTO 10 

60 X=:INT<RND<1)*38> 
70 NEXT 

80 IFX>38THENX=0 
90 PRINTTflB<X)"\/" 

REflDV. 
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A POETIC SCRAMBLE 

Here is a little poem with some input about the weather. The input com- 
bined with the poem should help you reassemble the scrambled program. 




WELL, WHETHER VOU LIKE IT 
OR WHETHER NOT 
L0U8V UERTHER 

IS THE ONLV KIND OF WEATHER 
WE OOT. 




10 PRINTfl*" WEATHER" 

20 PRINT"WELL, WHETHER VOU LIKE IT" 

30 PRINT" IS THE ONLV KIND OF WEATHER" 

40 PR I NT "OR WHETHER NOT" 

50 PRINT"WE GOT." 

60 PRINT 

70 INPUT "HOW IS THE WEATHER TODAV";A* 
REflDV. 
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WHERE AM I? 

This program allows you to pick a column on tiie screen from 1 to 39 and 
then pick the number of stars you want to print out. The result of picking 
column 34 with length of 10 is this: 




RUN 

COLOUMN (0 TO 39)? 34 
LENGTH? 10 



COLOUMN <0 TO 39)? 



10 NEXT 
20 GOTO 10 

30 INPUT"LEHGTH";B 
40 F0RC«1T0B 

50 INPUT "COLOUMN <0 TO 3Si)";fl 
60 PRINTTflB<fl)"*" 




REflDV. 
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A LITTLE DIFFERENT ORDER 

Look at this scrambled screen dump: 




Here is tiie scrambled program and a dump of what the unscrambled 
program is supposed to do. What is the unscrambled program? 



10 INPUT'TIRST NUMBER" ;X 
20 PR I NT" DON'T flSK ME WHV. PLEASE" 
30 PR1NT"GIVE ME TWO NUMBERS TO RDD. " 
40 PRINT"THE ANSWER IS fl GLORIOUS" ;X+V 
50 PRINT" I AM CRAZV ABOUT ADDING BUT" 
60 PRINT"THANK VOU. THAT WAS DELICIOUS I 
70 I NPUt" SECOND NUMBER" J V 

READV. 
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RUN 

I RM CRRZV RBOUT RDDINO BUT 

DON'T R8K ME WHV. PLER8E 

GIVE ME TMO NUMBERS TO RDB. 

FIRST NUMBER? 34 

SECOND NUMBER? 56 

THANK VOU. THAT WAS DELICIOUS! 

THE RN8UER IS A GLORIOUS 90 

RE ADV. 



mm 
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CAN YOU COUNT? 

This program picks a number and asks you what comes next. 



mm 



RUN 

WHAT NUMBER COMES RFTER 6 
? 4 

TRV flGfllN. VOU CRN DO ITU! 
? 8 

TRV RGfllN. VOU CRN DO IT! ! ! 
? 7 

RIGHT ON! ! ! 
RERDV. 



10 PRINT"WHfiT NUMBER COMES AFTER" ;X 

20 IFVOX+lTHENPRINT"TRV flGRIN. VOU CAN DO IT!!!" 

30 letx«int<:rnd<i>*ii> 

40 ifv«x+1thenprint"right idn!!!":end 

50 GOTO30 
60 INPUTV 

REflDV. 
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NEXT LETTER? 



This program is supposed to ask what letter comes next in the alphabet 
after one chosen by the computer. When scrambled here is what it does: 




Here is the scrambled program and a screen dump of it running 
unscrambled: 

10 PRINTXCHR$<157>"TH IN THE RLPHflBET?" 
20 INPUTS* 

30 PR I NT "GUESS flGflIN" 

40 PRINT"WHfiT LETTER COMES"; 

50 IFMID*<FI$,X.1>«B*THENPRINT"RI0HT" :END 

60 fl*= " flBCDEFQH I JKLMNOPQRSTUVWXVZ " 

70 OOTO50 

80 LETXaINT<RND<l)*26;i+l 
REflDV. 
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NAME NAME 

This program asks for your name and then prints it out 24 times. Here is 
what the program looi<s like on the screen as well as the scrambled version 
of the program and a dump of how this version runs. Unscramble the 
program and print out a friend's name. 



RUN 

WHAT IS VOUR NAME? 

NHflT fl NICE NAME 
NHAT IS VOUR NAME? 

WHAT A NICE NAME! 
WHAT IS VOUR NAME^ 
WHAT A NICE NAME! 
WHAT IS VOUR NAME? 

WHAT A NICE NAME! 
WHAT IS VOUR NAME? 

WHAT A NICE NAME! 
WHAT IS VOUR NAME? 

WHAT A NICE NAME! 
WHAT IS VOUR NAME? 
Wl 






WHAT IS VOUR NAME? 
? JOSHUA 

WHAT A NICE NAME! 

mm JOSHUA JOSHUA JOSHUA JOSHUA JOSHUA JOSHU MM 
A JOSHUA JOSHUA JOSHUA JOSHUA JOSHUA JOS 
HUA JOSHUA JOSHUA JOSHUA JOSHUA JOSHUA J 
08HUA JOSHUA JOSHUA JOSHUA JOSHUA JOSHUA 

JOSHUA 
READV. 




56 



10 F0RZ»1T024 

20 PR I NT "WHAT IS VOUR NAME?" 
30 PRINTA*" 

40 PRINT''WHAT A NICE NAME!" 
S0 NEXT 

60 PRIHTCHR*<147> 
70 INPUTA* 
80 PRINT 

READV. 
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MEDITATION 

A screen dump can hardly capture this colorful program so you will have to 
imagine how this looks in Commodore color. Notice that this program uses 
some commands you may not be familiar with. BRD is the border color 
variable. BCK is the background color variable. 53280 is the border color 
memory location, and 53281 is the background color location. In order to 
make the program have a complex color cycle, the border, background, and 
type colors have all been used. Here is a screen dump of the program. 
Imagine that it is in color and unscramble the program: 



HERE FIRE SOME COLORS FOR 
MEDITATION AND RELRXflTION 




10 P0KE53281.BCK 

29 POKE53280/BRD 

30 BCK"INT(RND<1)#15) 

40 PRINT : PRINT : PRINT : PRINT = PRINT 
50 FORX=1TO500:NEXT 

60 PRINTTflB<7)"HERE ARE SOME COLORS FOR" 
70 GOTO50 

80 FORX=1TO500:NEXT 

90 PRINTCHR*<147>CHR$<5) 

100 BRD=INT<RND<1)*15) 

110 PRINTTflB<7V'MEDITflTI0N AND RELRXflTION" 
REflDV. 
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AN OPTIMISTIC PSYCHIATRISTS 
PROJECTIVE TEST 

This test asks you for a color preference. All the responses are in full color 
and are positive because the psychiatrist that taught the test to me never 
found a person she didn't believe in. The black and white can't show you the 
passionate red. the sl^ blue, or the lunninescent yellow but. once you get 
the progrann straightened out. you'll see them. Try to unscramble the 
program and then add color upon color until you can make positive state- 
ments corresponding to all the colors that can be produced by your Com- 
modore 64. 
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10 PRINTTflB<17)"WITH JOV" 

20 IFD$sB$THEN2000 

30 PRINT: PRINT -PRINT: PRINT 

40 PRINTTflB<17)"THE SKV" 

50 P0KE53281.2 

60 P0KES328 1 . : PR I NTCHR$ < 5 ) 

70 PRINTTflB<15)"IS THE LIMIT" 

80 END 

90 PRINTTflB(17)"V0U ARE" 
100 PRINT 

110 PRINT: PRINT: print: PRINT 

1000 PRINT" RED BLUE VELLOW" 

1010 PRINTTflB<16)"V0U SHINE" 

1020 flf ="RED" : B$="BLIJE" : C$»"VELLOW" 

1030 PRINT: PRINT: print: PRINT 

1040 END 



60 



2000 P0KE53281.14 

2010 PR I NT "FAVORITE " 

2020 IFD*«fl*THEN1000 

2030 PR I NT "WHICH OF THESE THREE COLORS IS VOUR" 

2040 PR I NTTflB < 1 6 ) " PASS I ONflTE " 

3000 P0KE53281,7 

3010 IFD*=C*THEN3000 

3020 INPUTD* 

3030 PRINTCHRt<147) 

3040 END 

REflDV. 
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Answers 

1 



10 PRINTTflB<12)"I WILL NOT BEND." 

20 X«INT<RNl]i<l>*38) 

30 FORValTO10 

40 PRINTTflB<X)"\/" 

50 NEXT 

60 GOTO 10 

REflDV. 



The key to unscrambling this is in figuring out where the GOTO 
statement must be placed. It gives you a sense of reference back and 
forward in the program and helps you reconstruct the original. In fact, try 
this same program with the following simple line change and see what 
happens: 

G0 GOTO 40 



10 PRINTTfiB<ll)"I'M TRVING TO BEND." 

20 X=INT<RND<1)*38) 

30 FORV=1TO10 

40 PRINTTflB<X)"\/" 

50 X»X+INT(RND<1)*3)-1 

€0 IFX>38THENX=0 

70 IFX<0THENX«38 

80 NEXT 

90 GOTO 10 

REflDV. 

Compare the unscrambled version of this program with that of puzzle 
1. Notice how line 50 causes the bending. In computer algebra, you can 
change the values of the variables in mid-program. A statement like LET 
X=X+1 is perfectly legitimate in computer algebra and is not valid for any X 
in the kind of algebra you learned in school. 
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10 INPUT "HOW IS THE WEATHER TODflV'Sfl* 
20 PRINT 

30 PR I NT "WELL, WHETHER VOU LIKE IT" 

40 PRINT"OR WHETHER NOT" 

50 PRINTfl*" WEATHER" 

60 PRINT" IS THE ONLV KIND OF WEATHER" 

70 PRINT"WE GOT." 

READV. 



Almost any saying can be turned into a fun program using tliis form. 
Try an input to the following: 



Too many X's spoil the Y. 
A X in time saves Y. 
Better X than Y. 



10 INPUT "COLUMN TO 39>"JA 

20 INPUT"LENGTH";B 

30 F0RC«1T0B 

40 PRINTTAB<A)"*" 

50 NEXT 

60 GOTO 10 

REflDV. 



After you understand how this program works, try to change the 
positioning of the stars. See if you can make them print out from left to 
right instead of top to bottom by having the player pick a row instead of a 
column. 
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10 PR I NT "I RM CRflZV ABOUT ADDING BUT" 

20 PR I NT "DON'T ASK ME WHV. PLEASE" 

30 PRINT"QIVE ME TWO NUMBERS TO ADD. " 

40 INPUT"FIRST NUMBER" ;X 

50 INPUT "SECOND NUMBER" ;V 

60 PR I NT "THANK VOU. THAT WAS DELICIOUS! 

70 PRINT"THE ANSWER IS A GLORIOUS" ;X+V 

RE ADV. 



Of course, this program can easily be extended to multiplication. See if 
you can get a bit more complex and extend it to division so the answer 
comes out even and to subtraction so the answer comes out positive. A few 
more lines of code will be required to guarantee these conditions. 



10 LETX«INT<RND<n*ll) 

20 PR I NT "WHAT NUMBER COMES AFTER" J X 

30 INPUTV 

40 IFV«X+1THENPRINT"RIGHT ON!l!":END 

50 IFVOX+lTHENPRINT"TRV AGAIN. VOU CRN DO ITIH" 

£0 GOTO30 

READV. 



Here are some interesting modifications: 
Can you tell me what is 5 times X? 

Can you tell me what is 5 times X divided by three? (In this case set 
the program up so that the answer comes out even.) 
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10 fl$» " flBCDEFQH I JKLMNOPQRSTUVWXVZ " 

20 LETXsINT<RND<l>#26)+l 

30 PRINT"WHfiT LETTER COMES"; 

40 PR1NTXCHR$<157)"TH IN THE ALPHflBET?" 

50 INPUTS* 

60 IFt1ID*<fl«, X. 1 )«B«THENPRINT"RIGHT" : END 
70 PRINT"GUESS AGAIN" 
80 GOTO50 

READV. 



Notice that the alphabet is stored in this program in A$ which was set 
equal to "ABCDEFGHIJKLMNOPQRSTUVWXYZ." Also notice that the l<ey 
to the program is the powerftjl BASIC command M1D$(A$.X, 1 ) which allows 
you to choose the Xth member of A$. This is used in many code and word 
programs. You can use it to choose any number of letters out of a string. 
Here's an example of how it might be used: 

Set R$="HIERRRCHY" 
Then MID$(R$,5,8) 

will produce the word "arch." You can use this substring extraction to set 
up games that ask people to find out what words are contained within a 
given word. 
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10 PRINTCHR*<147) 

20 PR I NT "WHAT IS VOUR NAME? 

30 INPUT A* 

40 PR I NT "WHAT A NICE NAME!" 

50 PRINT 

60 F0R2-1T024 

70 PR I NT A*" 

80 NEXT 

READV. 
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10 PRINTCHR$<147>CHR*<5> 

20 PR I NT : PR I NT : PRI NT = PR I NT : PR I NT 

30 PRINTTflB<7)"HERE ARE SOME COLORS FOR" 

40 PRlNTTflB<7) "MEDITATION AND RELAXATION" 

50 BRDeINT<RND<l)*15) 

60 BCK=INT<RND<n*15> 

70 POKE53280,BRD 

80 FORX»1TO500:NEXT 

90 P0KE53281.BCK 

100 FORX='1TO500:NEXT 

110 OOTO50 

READV. 



Play with the border and background colors. They can be used to dress 
up your programs and provide interesting detail to games and other things 
you program. One way to start is to cycle through all of the border and 
background colors and see what th^^ do on the screen. Just play around 
with them and you will most likely find effects you can use in many 
different ways. 
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10 POKE53281,0:PRINTCHR*<5) 

20 A*=«"RED" : B*="BLUE" : C*="VELLOW" 

30 PR I NT "WHICH OF THESE THREE COLORS IS VOUR" 

40 PR INT "FAVORITE " 

50 PRINT 

£0 PRINT" RED BLUE VELLOW" 

70 INPUTD* 

80 PRINTCHR*<147) 

90 IFD*=A*THEN1000 

100 IFD«»B«THEN2000 

110 IFD$>C$THEN3000 

1000 P0KE53281.2 

1010 print: print: print: PRINT 

1020 PRINTTAB<17)"V0U ARE" 

1030 PR INTTAB< 16) "PASSIONATE" 

1040 END 

2000 P0KE53281.14 

2010 PRINT: print: print: PRINT 
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2020 PRINTTflB<17)"THE SKV" 
2030 PRINTTflB<15)"IS THE LIMIT" 
2040 END 

3000 P0KES3281.7 
3010 PRINT: PRINT: PRINT: PRINT 
3020 PRINTTflBa6>"V0U SHINE" 
3030 PRIHTTflB<17)"WITH JOV" 
3040 END 

REfiDV. 



Here are a few color character equivalents I've managed to conrie up 

with: 

orange— abundant and nourishing 
pink— shy but perceptive 
black— powerful and intelligent 
green— fruitful and abundant 
dark blue— deep and curious 

Surely you can come up with dozens morel 
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Missing Line 
Puzzles 
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In these puzzles, one line is nnissing fronn the programs. The nnissing 
line is indicated by the line number and the statement PRINT 
•7????????????". In choosing what lines to drop out. the main 
consideration was to leave out some essential part of the program struc- 
ture. In effect, these puzzles are exercises in reading and understanding 
program structure. The screen dumps should give you enough of an idea of 
how the program runs to allow you to think your way through to the full 
program. If you come up with a line that works and is not the one given in 
the answer please write and let me know. There are many ingenious ways 
to solve programming problems. 
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COUNTING BACKWARDS 

This program asks you for an integer and tiien counts backwards from that 
number to 1 and prints out the list. 




RUN MM 
mm URTCH ME COUNT BRCKl^RRBS. 

mmm uhrt number shoulb i strrt from? is '^m 

•15 




10 PR INT "WATCH ME COUNT BflCKWfiRDS." 

20 INPUT "WHAT NUMBER SHOULD I START FROM" J X 

30 PR I NT "??'>?'>''??????????????" 

40 PR1NT2 

50 NEXTZ 

READV. 
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PATTERN MAKING 

This program prints out a pattern. One aspect of the pattern is left out for 
you to figure out. 



RUN 

HERE'S AN EflSV PRTTERN TO PRINT WITH fl 
COMPUTER. TRV TO MAKE VOUR OWN PATTERNS. 

X>0(]><>dXX><]IMIIIIIIII><>CK]>0<l><>0<llllliil 

llll>oo<l>o<l><><>dllllllllMl>o<>l>c<lx>o<lM 

llllllll>0<><lX>0>CX5<llllllllllll>0<>d><>dX>0< 
I I I i I 1 I I M I I )0Od-,XXl XXXI I I I I I I I I I I I XXXI XX 
I XX>4 I I I I I I I I I I I XXX] XX] XX>d I 1 I I I I i I I I I XX 
XI XXI XXXI IllllllllllXXXlXXlXXXilllllllll 

I I XXXi XXI XXXl I I I I I I I I I I I XXXl XXI >0OJ I I .I I I 
-I I I I I I XXX] XXI XXXl I I I I I I M I I I XXX] XX] XX>d I 

t I I I I I I M I XX>d X>4 XXX] IIIIIIIIIIIXXXIXXIX 
XX] I I I I I I I I I I I XXX] X>4 XXXI J .I I I I I I I I I I XXX] 
X>d XXX] I I i I I M I I I I XX>^ XX] XX>4 I I i I I I I I I I I 
>6<X]XX]XX>4lllllllililXXX]XX]XXX]lll1lll 

1 1 1 1 XXX) XXI XXX] 1 1 1 i i 1 1 1 1 1 1 XXXI XX] xx>4 1 n 

II I I I I II >Odd XXI XXX] lllllilllliXXX]XX]XXX 
I I I I I I I I I i I I XX)4 XX] XXXI I I I I I I .I I I I I XXX] XX 

I XX>d i I I I I 11 i I I I XX>d X>4 XXX] I I I I I I I I I I I XX 
>dXXIXXX]illllllilllXX>4XX]XXX]lllllllll 

I I XXXl XX] XXX] I I I I I I I M 1 1 XXX] X>d XX)d I M I I 
IIIIIIXXX]XX])^IIIIIIIIIIIXXX]XX]XXX]I 

1 1 ri 1 1 1 1 H XXX] xxj XXXI 1 1 1 n 1 1 1 1 1 1 xxx] xx] x 

XXI I I I I I I I I I i I XXX] XX] XXX] I I I I I I I I I I 




10 PR1NT"HERE^S AN EflSV PATTERN TO PRINT WITH fl" 

20 PRINT"COMPUTER. TRV TO MAKE VOUR OWN PATTERNS." 

30 FORX«1TO750:NEXT 

40 PR I NT " ???????????????????? " 

50 PRINT"IIIIIIIIIII ".: 

60 QOTO40 

RE ADV. 
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A GOOD DAY 

This program asks you if it's a good day for you. Here are the responses: 




IS THIS fl GOOD DflV FOR VOU? VES 
SHARE IT UITH VOUR FRIENDS 





IS THIS fl GOOD DflV FOR VOU? NO 
MflVBE THIS UILL MAKE VOU FEEL BETTER. . 




73 



Here is the program with the missing line of code: 



10 INPUT" IS THIS fl GOOD DflV FOR VOU'Sfl* 
20 PRINT 

30 IFfl*»"VES"THENPRINT"SHflRE IT WITH VOUR FRIENDS": END 
40 IF fl*»"NO"THENGOTO100 

100 PRINT"MflVBE THIS MILL MAKE VOU FEEL BETTER.." 

110 FORX»1TO1500:NEXT 

120 PRINTTflB<RND<l)*20)"/"; 

1 30 PR I NT " ???????????????????? " 

140 GOTO 120 

RERDV. 
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GUESS 

This is a letter counting game, it flaslies a word on tfie screen and asks you 
to guess how nnany letters it has. You can count the letters but estimating 
the length of the word is more fun. 




HERE ARE SOME WORDS TO STUDV FOR fl FEW 
SECONDS. GUESS HOW MRNV LETTERS ARE 
IN EACH WORD. 

HOPEFUL 

VOUR GUESS? 7 

GREAT! TRV ANOTHER 

INDEPENDENCE 
VOUR GUESS? 12 
GREAT! TRV ANOTHER 

TROUBLE 

VOUR GUESS? 8 

TAKE ANOTHER LOOK 



mmm trouble 

VOUR GUESS? 7 
GREAT! VOU GOT ALL THREE! 




Here is the program with the missing line of code: 

1 e R$= " HOPEFUL " : B$= " I NDEPENDENi:E : C$= " TROUBLE " 
20 PR I NT "HERE RRE SOME WORDS TO STUDV FOR fl FEW" 
30 PR I NT "SECONDS. GUESS HOW MflNV LETTERS ARE" 
40 PRINT" IN EACH WORD." 
50 FORX«1TO750:NEXT 
100 PRINT 
110 PRINTfl$ 

120 INPUT "VOUR GUESS" W 

1 30 PR I NT " '??9999997999999979?9 " 

140 IFWOLEN<:FI$>tHENPRiNt"Tfl^^^^ ANOTHER LOOK" • F0RX«1T0 
750: NEXT .'GOTO 100 
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200 PRINT 
210 PRINTS* 

220 INPUT"VOUR GUESS" ;W 

230 IFW=LEN<B*)THENPRINT"GREflT! TRV ANOTHER" :F0RX=1 TO 

750: NEXT :GOTO300 
240 IFWOLEN<B*)THENPRINT"TflKE ANOTHER LOOK" -FORXslTO 

750: NEXT :GOTO200 
300 PRINT 
310 PRINTC* 

320 INPUT"VOUR GUESS" ;W 

330 IFW=LEN<C*)THENPRINT"GREflT! VOU GOT ALL THREE! ":END 
340 IFWOLEN(C*>THENPRINT"TflKE ANOTHER LOOK" :F0RX=1T0 
750: NEXT :GOTO300 

READV. 
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NEXT LETTER 

This program asks for a letter and then gives you the next letter in the 
alphabet. It won't be tricked if you ask for the letter after Z. 



wssm RUN 

mmm give me a letter in the ALPHflBET 
mum RND I-LL TELL VOU THE NEXT LETTER. 

mem don-t trv to trick me with z because 
mmm rvE alreadv learned that it is the 
msm LAST letter. 

mmm the next letter is x 

mmm re adv. 
rnxmrn run 

mmm give me a letter in the alphabet 

AND laL TELL VOU THE NEXT LETTER. 
DON^T TRV TO TRICK ME WITH Z BECAUSE 
rVE ALREADV LEARNED THAT IT IS THE mM 
LAST LETTER. Wmm 

THE NEXT LETTER IS S 




Here is the program to fill out: 

10 PRINT"GIVE ME fl LETTER IN THE RLPHflBET" 
20 PR I NT "AND I'LL TELL VOU THE NEXT LETTER." 
30 PR I NT "DON'T TRV TO TRICK ME WITH Z BECAUSE" 
40 PRINT" I'VE ALREflBV LEARNED THAT IT IS THE" 
50 PRINT"LAST LETTER." 
60 LET A*a " RBCDEFGH I JKLMNOPQRSTU VWX VZ " 
70 INPUTB* 
80 F0RX=1T026 

90 PR I NT "'''''?'?■''''??''''''''"'''''"?'''>??" 
100 NEXT 

READV. 
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THIRD LETTER 

Here is a puzzle that uses the same concept as puzzle 5. You should be able 
to get this one more easily: 




DID VOU KNOW THAT THE THIRD 
LETTER IN VOUR NAME IS..C 




10 INPUT "WHAT IS VOUR NflME'Sfl* 
20 PRINT 

30 PRINT"DID VOU KNOW THAT THE THIRD" 
40 PR I NT "LETTER IN VOUR NAME IS.."; 
50 PRINT"????????????????????" 

REflDV. 



78 



7 



NEXT NUMBER 

Recently you tried a next letter puzzle. Here is a next number puzzle. 




10 PRINT"WHflT NUMBER COMES AFTER"; 
20 LETXbINT<RND<1)*100>+1 
30 PRINTX 
40 INPUTV 

50 IFV«X+lTHENPRlNT"flBSOLUTELV ! " = END 
€0 IFVOX+lTHENPRINT"TRV flGfllN..." 

70 PR I NT " ???????????????????? " 

REflDV. 
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CALCULATE 

Here is a simple arithmetic challenge: 




896691^ RUN 

mmSi PICK fl NUMBER FROM 1 TO 20? 5 



mm UHflT IS 4 TIMES THAT NUMBER MINUS 3 

^ ^ ^ ^ ? 14 

mm TRV RORIN. . . 

mmm WHRT IS 4 TIMES THAT NUMBER MINUS 3 
iijipi ? 12 

TRV RORIN. . . 

mmm what is 4 times thrt number minus 3 

mOMWM 17 

vou oot it i i 
reabv. 

9sms^ 




Here is the program for it with a missing line: 



10 INPUT "PICK fl NUMBER FROM 1 TO 20" ;X 
20 PRINT 

30 PR I NT "UHflT IS 4 TIMES THAT NUMBER MINUS 
40 INPUTV 

30 PR I NT "???????'>'>??????'>'???'?" 
60 IFV«ZTHENPRINt "VOU GOT ' IT 1* ! " : END 
70 IFVOZTHENPRINT"TRV flGfllN..." 
80 GOTO30 

REflDV. 
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COMPARISON 

This program generates two random numbers and asks you which is the 
larger. It does not give you a second chance but gives you another problem 
instead. 




RUN 

HERE-'S fl REAL SIMPLE MATH GAME 
UHICH NUMBER IS LARGER? 

11 OR 13 

? 13 WHIM 
RIGHT. TRV ANOTHER ONE 
UHICH NUMBER IS LARGER? 

5 OR 37 

? 5 

SORRV. TRV ANOTHER EXAMPLE 
UHICH NUMBER IS LARGER? 

28 OR 31 

? 31 

RIGHT. TRV ANOTHER ONE 
UHICH NUMBER IS LARGER? 

48 




m mmmm 



10 PRINT"HERE"S fl REAL SIMPLE MRTH GAME" 
20 LET X«INT<RND<n*50> 
30 LETV»INT<RND<1)*50) 
40 1FX«VTHEN20 

50 PRINT"WHICH NUMBER IS LARGER?" 
60 PRINT 

70 PRINTX."OR%V 
80 PRINT 
90 INPUTZ 

100 IFZ«XTHENGOTO1000 

110 PR I NT " 09'?9'?99':>99??9?9?9':'?'? " 

1000 IFX>vtHENPRiNt "RIGHT. TRV ANOTHER ONE":GOTO20 
1010 PRINT" SORRV.. TRV ANOTHER EXAMPLE" •GOTO20 
2000 IFV>XTHENPRINT"RIGHT. TRV ANOTHER ONE"'GOTO20 
2010 PRINT" SORRV. TRV ANOTHER EXAMPLE" ^ GOTO20 
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DICE 

This program sets up the computer to roll a pair of dice and then gives you 
the total of the two rolls. It can be incorporated into many game programs. 




DO VOU URNT HE TO ROLL RGRIN? NO mmm 
THRT'S ALL FOLKS. 




Fill in the missing line: 

10 PRINT" I KNOW HOW TO ROLL DICE" 

20 PR I NT "HERE'S MV ROLE:" 

30 LETX=INT<RND<n*6)+l 

40 LETV=INT<RND<1)*6)+1 

50 PRINT 

60 PRINT"DIE 

70 PRINT"DIE 2-",W 

80 PRINT 

90 PR I NT " ?'>??':>??'?9?7'?'?'?'?7'?7'7'> " 

100 PRINT 

120 INPUT"DO VOU WANT ME TO ROLL flGFIIN";fl$ 

130 IFfl*="VES"THENGOTO20 

140 PR I NT "THAT'S ALL FOLKS.": END 

READV. 
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Answers 
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10 PRINT"WRTCH ME COUNT BflCKWRRDS. " 

20 INPUT "WHAT NUMBER SHOULD I START FROM";X 

30 F0RZ«XT01STEP-1 

40 PRINT2 

50 NEXTZ 

REflDV. 



The missing line decreases the size of X each tinne the progrann runs 
through the loop. You can count backwards by 2's. or 3's or any other 
number. 



10 PR I NT" NEREIS AN EASV PATTERN TO PRINT NITH A" 
20 PRINT"COMPUTER. TRV TO MAKE VOUR OWN PATTERNS," 
30 FORX«1TO750:NEXT 
40 PRINT"XXxl ;od iOCxl "; 
50 PRINT"! I I I I I I 1 I 1 I "; 
60 GOTO40 

RE ADV. 

It is very easy to make patterns with your Commodore 64. In fact, the 
last section of this book has a whole series of moderately complex pattern 
puzzles. In making patterns, you have to look at the arrangement of blank 
spaces as much as the placement of symbols. The colon is what creates a 
continuous pattern across the screen and, since the line scrolls around, you 
will often find patterns that don't look at all like you expect them to. It is a 
delightful idle activity to explore patterns at random and develop an intui- 
tive sense of how lines like these will look when repeated on the screen in 

an infinite loop: ^ ^ ^ 

©ee ••-•-•^ CCE 333 &CW 

&S<S<?<8< 7."/."/."/-7. 8<8<8<S<8< 
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1& INPUT" IS THIS fl GOOD DflV FOR VOU";fl$ 
20 PRINT 

30 IFfl*a"VES"THENPRINT"SHflRE IT WITH VOUR FRIENDS": END 
40 IF fl««"NO"THENGOTO100 

100 PRINT"MflVBE THIS WILL MAKE VOU FEEL BETTER. . " 

110 FORX=1TO1500:NEXT 

120 PRINTTflB<:RND<l)*20)"/"; 

1 30 PR I NTTflB < RND < 1 ) *20+20 > " \" 

140 GOTO 120 

REflDV. 

The challenge here Is to figure out the way to reconstruct a graphic 
design from the alphabet of graphic ^bols available to you. When you 
become as familiar with these as you are with the alphabet and numbers 
you can do interesting graphics without having to PEEK. POKE, or do any 
complex programming. It is not enough, however, to study the symbols on 
your keyboard. You have to experiment with them because their power lies 
in the way th^ can be combined and not just in the individual symbols. 



1 fl*a " HOPEFUL " : B*» " I NDEPENDENCE " : C*= " TROUBLE " 
20 PR I NT "HERE fiRE SOME WORDS TO STUDV FOR fl FEW" 
30 PRINT"SECONDS. GUESS HOW MflNV LETTERS ARE" 
40 PRINT" IN EACH WORD." 
50 FORX=1TO750:NEXT 
100 PRINT 
110 PRINTfl* 

120 INPUT "VOUR GUESS" ;W 

130 IFW»LEN<fl$)THENPRINT"GREflT! TRV ANOTHER" :F0RX=1 TO 

750: NEXT :GOTO200 
140 IFWOLEN<A$)THENPRINT"TAKE ANOTHER LOOK" :F0RX=1T0 

750: next: GOTO 100 '^^'^'^ '"^ 

200 PRINT 
210 PRINTB* 

220 INPUT "VOUR GUESS" ;W 

750: NEXT :GOTO300 
230 IFW=LEN<B*)THENPRINT"GREATI TRV ANOTHER" :F0RX=1 TO 
240 IFWOLEN<B*)THENPRINT"TAKE ANOTHER LOOK" :F0RX=1T0 

750: NEXT :GOTO200 
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300 PRINT 
310 PRINTC* 

320 INPUT "VOUR GUESS" ;W 

330 IFW=LEN<C*>THENPRINT"GREflT! VOU GOT ALL THREE! ":END 
340 IFWOLEN<C*)THENPRINT"TfiKE RNOTHER LOOK" : F0RX=1T0 
750: NEXT :GOTO300 

REflDV. 

This program uses a command you may not be very familiar witti. 
LEN(A$). This command gives you the length of a word or sequence of 
letters stored in a string. Thus, if there are 50 letters stored in A$. 
LEN(A$)=50. In this program, the LEN function is used to match your guess 
against the actual length of the word. LEN is very useful when you are 
dealing with comparisons of the lengths of strings rather than the specific 
contents of them. 



10 PRINT "GIVE ME fl LETTER IN THE ALPHflBET" 
20 PRINT"fiND I'LL TELL VOU THE NEXT LETTER." 
30 PR I NT" BON 'T TRV TO TRICK ME WITH Z BECAUSE" 
40 PRINT"I''VE fILREADV LEARNED THAT IT IS THE" 
50 PRINT"LAST LETTER. " 
£0 LETfl*= " flBCDEFGH I JKLMNOPQRSTUVWX VZ " 
70 INPUTBf 
80 F0RX»1T026 

90 IFB*=MlIli«<A*/X,l)THENPRIHT"THE NEXT LETTER IS 

MID$<A*,X+1. 1) 
100 NEXT 

REflDV. 



The missing line involves using the midstring function M1D$(A$XY) 
that has been used a number of times before in this book. It is another 
example of how convenient it is to be able to pull a letter or series of letters 
out of a string whenever you need them in your program. 
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10 INPUT"WHfiT IS VOUR NflME";fl$ 
20 PRINT 

30 PRINT "DID VOU KNOW THAT THE THIRD" 
40 PR I NT "LETTER IN VOUR NAME IS.."; 
30 PRINTMID*<fl$.3.1) 

REflDV. 



10 PR I NT "WHAT NUMBER COMES AFTER"; 
20 LETX«INT<RND<1)*100)+1 
30 PRINTX 
40 INPUTV 

50 I F Vs-X* 1 THENPR I NT " ABSOLUTELV ! " : END 
€0 IFVOX+lTHENPRINT"TRV AGAIN..." 
70 GOTO40 

RE ADV. 



This puzzle deals with setting up a loop to let a person try to correct a 
wrong answer. The reference of GOTO statements is essential to how a 
progrann runs. If you tried 

70 GOTO 20 

the target number and. therefore, the correct answer would be changed, it 
is sometimes useful to deliberately mess up your own programs and see 
what happens. Sometimes you'll make interesting and useful discoveries. 
Other times you'll intemalize ERROR statements and help yourself create 
bug-free programs. 
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10 INPUT "PICK A NUMBER FROM 1 TO 20" ;X 
20 PRINT 

30 PR I NT "WHAT IS 4 TIMES THAT NUMBER MINUS 3" 
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40 INPUTV 

50 LET Z=4*X-3 

60 IFV=ZTHENPRINT"VOU GOT IT!!":END 
70 IFV02THENPRINT"TRV fiGfllN..." 
80 GOTO30 

REfiDV. 

In this case, you have to figure out how to perform the calculation 
asked for correctly and then give its result a new variable name.Z. If you 
forget to use this new variable you won't be able to use the result of the 
calculation in other parts of the program without doing a recalculation. In 
many programs, the introduction of new variables to indicate the results of 
processes or calculations is a convenient programming tool. 



10 PRINT'-HERE'S fi REAL SIMPLE MfiTH GAME" 
20 LET X»IHT<RND<1)*50) 
30 LETV«INT<RND<1)#50) 
40 IFX-VTHEN20 

50 PRINT"WHICH NUMBER IS LARGER?" 
€0 PRINT 

70 PRINTX,"OR",V 
80 PRINT 
90 INPUTZ 

100 IFZ=XTHENGOTO1000 
110 IFZ=VTHENGOTO2000 

1000 IFX>VTHENPRINT"RIGHT. TRV ANOTHER ONE":GOTO20 
1010 PRINT" SORRV. TRV ANOTHER EXAMPLE" :GOTO20 
2000 IFV>XTHENPRINT"RIGHT, TRV ANOTHER ONE":GOTO20 
2010 PRINT" SORRV. TRV ANOTHER EXAMPLE" : GOTO20 

READV. 



This is another puzzle in which you have to figure out the correct 
GOTO reference. Instead of sending you back to an earlier part of the 
program as most of the GOTO puzzles did. this one sends you to the end of 
the program. It is important to realize that the GOTO command can allow 
you to jump all over your program. 
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10 PRINT"! KNOW HOW TO ROLL DICE" 

20 PR I NT "HERE'S MV ROLE:" 

30 LETX=INT<RND<1)*6H1 

40 LETV=INT<RND<0*6)+1 

50 PRINT 

60 PRINT"DIE 

70 PRINT"DIE 2:",V 

80 PRINT 

90 PRINT"TOTflL:".X+V 
100 PRINT 

120 INPUT "DO VOU WANT ME TO ROLL flGfiIN";fl$ 

130 IFfl$="VES"THENGOTO20 

140 PR INT "THAT'S ALL FOLKS. "= END 

READV. 



Line 90 lets you both add the total and print it out at the sanne time. 
There are times when it is convenient to use the PRINT statement in 
conjunction with a computation, especially if you do not want to store the 
result of the computation in any other part of the program. 
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The Commodore 64 computer has two graphics keyboards that are 
invisible unless you press, the SHIFT key or the Commodore Key. 
(Consult your Commodore 64 User's Guide for instructions on using the 
graphics keyboards.) 

The shapes on these keyboards can be used to make very interesting 
designs and pictures. They can also be mixed with letters to make borders 
and designs within your ordinary text. They do not need a special graphics 
command and print straight from the keyboard. They can also be embodied 
in PRINT statements along with numbers and letters and can be stored in 
strings the way letters can. There have been examples of these graphics in 
other parts of the book. Here are a number of puzzles that depend essenti- 
ally on the use of this graphics mode. 



90 



1 



A FACE WITH CHARACTER 

Here is a face, perhaps not the most beautiful one in the world but never- 
theless one with character. Using SHIFT graphics, try to reconstruct it. 
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PLASTIC SURGERY 

Here's the same face scrambled up as well as the program that generates 
the scramble. Try to reconstruct the original face by reordering the line 
numbers without looking at the answers to puzzle 1. The answer to this 
puzzle is exactly the same as the answer to puzzle 1. 
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TITLE PAGE 

This program asks for someone's name and then prints out a simple title 
page for a book. Construct a program that does this for any name input. 




RUN 

WHAT IS VOUR NAME? ERICfl SMITH mmt 



r — 




— ^ 


l« 


READ THIS BOOK BV: 


#1 


it 
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ERICfl SMITH 




l« 




#i 


L 
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4 to 7 

SHIFT CHARACTER DESIGNS 

This is a series of SHIFT character designs for you to decipher and try to 
reproduce. Remember that some of the characters are made up of com- 
binations of other characters. Also, the use of blank spacing is essential to 
get the design. I suggest you do some sketching and experimenting with 
combinations of SHIFT characters in the course of trying to reproduce these 
designs. The Appendix contains a sketch pad that is a reproduction of the 
grid of your Commodore 64 screen. The screen uses regular print as well as 
SHIFT graphics. 



CLEAR CUTTING IN THE MOUNTAINS: 



\ 'Tiw r/r/T/r/r/r/N^s^^^^^ //ww # 

I i$n ^\ r/ir/r/r/r/r/\^^\'^s.^^i //wr t# 

I # ir^\ r/r/T/r/r/r/'x^v^iK^'^^ //wr mmm 

I mtw r/r/r/w/ir/r/\^^^^:^<^ //wr ««# imm 
! r/r/r/r/f/r/x^.^^^'^i //wr t#t i mmm 
I ^\ r/r/r/r/r/r/\'t\^.^^.'^.^ //rr w 
I \\ r/r/r/r/r/r/\^^^iK^^ //rr ^ Mm 
I \ r/T/r/r/r/T/N^'^'^'^^i //rr Tt\\ mmm 
i r/r/r/r/r/r/N.^^^^^1 //rr # #« mm 
i r/r/r/r/r/r/\'q\^'^>s^^ //rr Tfw r mm 
\ /r/r/r/r/r/\^i\^^^i //rr #f t r/ mm 
i r/r/r/r/r/\^^^^^^ //rr ^\ r/r mm 
i /r/r/r/r/\^^iN^^i /^ mtw r/r/ Mm 
i r/r/r/r/\^'f\.'^^^.^ //rr «## r/r/w mmm 
i /T/T/r/s^^^^^^ //rr •t^ r/r/r/ Mm 
r/r/r/\^^'^.^^i //ww «t« ^\ w/w/w/w mmm 
\ /r/r/\^^ts.i\^^ //rr t«« Ttiw r/r /r/r/ mmm 
r/r/\iN^^.^^x^ //rr r/w/r/T/v mmm 

/r/\'^'^'^'^'^.^ //'rr «tf '^.x r/w/w/w/r/ mmm 
r/\^^'^i\'^.^ //rr r/r /r/r /r/r mmm 
/x^K'^iKTv'tv^ //rr ^\ r/r /r/r /r/r/ mmm 
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FENCES AND ROADS: 



r — ^4 y — n r — ^ — ^ r — Y — ^ r — h — n r — H 
♦ h — n r — ^♦ -1 r-H4 h — n r — ^♦ I- — n 
T r !♦ V 1 r !♦ h — n r 1* V 1 r — I- — t r — 

r— h — I r — H# F — n r— H# H — i r — h 1 r* 

•H* -I r— H* r— h — n r — ^H* H— n i- — I- 

— n r !♦ h — n r — ^H* V — -y r !♦ V — n r !♦ H — n r 

— F — n r — H# H — i r- — ^H^ Y — -x r — ^♦ h — ^ r — 



^^^^ ^^ ^ 



♦ h — n r — H# h — ^ r — H* h — ^ r — ^H* h — n r — H — 
n r — h — i r — ^^ Y — ^ r — h — r — ^♦ h — ^ r — 

h-^ r — H* h — ^ r—Hf ^— ^ r — f- — i r — K 
r — H4 J- — ^ r — ^♦ h — ^ r — h — i r — h — i r" 
-H4 1 r — H— -1 r— H# I- — ^ r — l~i r— H# H 

— i r — H— 1 r — ^H* h — ^ r — V — -i r — ^^ h 1 r 

— r — H* h-— T r — H* l—i r — H— r — 
h — ^ r — h — ^ r — H# h — n r — H# h — n r — h — ^ 
r— H* I- — n r — l~i r — r—H* H — -\ r — H 

♦ \ — n p — h— ^ r — Y — n r — h — n r — h — 



^ ^^^^^ ^^^ 



h — n r — H# I r — ^♦ H — n r — h — ^ r — 
r — I- — ^ r — H# h — ^ r — H* I- — t r — h — i 



DENSE ENVIRONMENT 



toot F Ftoorsjtoot p Ftoorsjioot r" ptoot 

mmik \JiOOt|"FtOOfSj|tOOtFFtOOfr\jtOOtFPtO 

mmi orsjtootFFtootNjtootFFtoorsitootFF 

mgaSI •OO•^J•OO•FF•O0i^^J•O0•FF•OO•^J•OO•F 
FtOOINjtOOt F FtOOiNjtOOt F FtOOifN^tOOt 
F Ft00f\ilt009 F FtOOINjtOOt F FtOOrvjtO 
09 F F900ir\j9009 F F^OOiTSjtOOt F F900t\j 
toot F FtOOiNjtOOt F F•00•^^J•00• F F9009 
\4«009 F FtOOfSsJtOOt F Ft00ti\j9009 F F^O 
0I\J9009 F FVOOrsjtOOt F FtOOtNjtOOt F F 

•oorvjtoot F Ftoor^sjtoot f Ftoorsjtoot f 

F9009\j900t F F9009r\il9009 F F^OOrsjeOOt 
F FtOOrNjtOOt F FtOOrsJtOOt F F«00tr\j90 
09 F F900tr\Jt009 F F^OOrsjtOOt F F9009NI 
•OOt F FtOOrsJiOOt F F900INJ9009 F F9009 
NjtOOt F F9009\J9009 F FtOOr^JtOOt F F90 
SJ8009 F FtOOiNjtOOt F F900r\j9j900e F F 
OINdltOOt F F«00f\it009 F F900t\i9009 F F 
•OOfS^tOOt F F900rsj9p08 F F9009\J9009 F 
Ft009\j9009 F F900rsj900« F F900r\j9009 
F F900f\j9009 F F«00rsj9009 F FtOOlNjtO 
09 F F9009\J9009 F F900r\j9009 F FtOOlNj 
•OOt F FtOgrsjtOOt F F900«\J9009 F FtOQt 
Wmm 'NJiOOi F FtOOINdiOOi F FiOOlNjtOOi f Fto 
OfNitOOt F FtOOiNitOOt F Ft009\^«00« F F 
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STRIPES 



nn-i-i rrr r W^rr r mm p 
mm rrrp ITf^FFF mm rrr 



WVrrr mm rrr r ' ^T l W rr nmn rrrr ^ 
Tim rrr r ^l^'^FF F' nmn rrrr 
nm-irrrr "ITfWTFT t -i m p r r r 
rr mnnrrrr TTfWfT m m r r r r ^IWrr f 
■mnrrrr ^tlWrFF mm pprr TfWFFr t 
TIT rrrr I MV r F F n^m pppp W ^ F F F -m 
-.pprr ^ M ^ F FF 
ppp IIW FF F 
USSm r ^nWITFr -imn rrrr ^IWF F F mm pppp 
'IIWFF F mni pppp IIW FF F mm pppp 1 

nnrrrr mm ppp p mw f f f nm pppp 

^S^^ ▼FIT -imn pppp "TTfVFFF tttt pppp 
mm FFT -imn pppp ^ I W FFF mm pppp 

r -inm pppp ^^NTTFrr mm pppp l ^^ ^ FF F 
mm pppp ■^TWFFT mnn pppp W ^FF F m 
m ppp p ll'^^FF F mm pppp ^H ^^FF F mm 
ppp p W^F FF mm pppp ll^^F FF mm pp 
pp-l^IWrFr mm pppp I IWF F F mm pppp 
11WFFF mm pppp H' ^W FFF mnn pppp 

nnmpppp I IW FFF mm pppp ^ 
mm pppp II WF F F Tim pppp 

mm pppp TrnrrFT Tim pppp 

Tim pppp ^ ^ WFF F mm pppp I IW FF F 



mm pppr 



nmn rrr 
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ALPHABET RECONSTRUCTION 



Now that you've spent some time dealing witfi some fairly complicated 
designs, here's a simple alphabet to reconstruct. It doesn't use SHIFT 
characters but does use the keyboard and the program structure of BASIC 
in the same way that the previous programs did. 



LMNOP QRS & TUV W X & VZ ABC DEFG HIJK L 
f^^m MNOP QRS & TUV W X & V2 ABC DEFG HIJK LM 
NOP QRS & TUV W X & V2 ABC DEFG HIJK LMN 
OP QRS & TUV W X & V2 ABC DEFG HIJK LMNO 
P QRS & TUV W X & VZ ABC DEFG HIJK LMNOP 

QRS & TUV W X & VZ ABC DEFG HIJK LMNOP 
QRS & TUV W X & VZ ABC DEFG HIJK LMNOP Q 
RS & TUV W X & VZ ABC DEFG HIJK LMNOP QR 
RS & TUV W X & VZ ABC DEFG HIJK LNOP QRS 

5 & TUV W X & VZ ABC DEFG HIJK LMNOP QRS 
& TUV W X & VZ ABC DEFG HIJK LMNOP QRS 

6 TUV W X «i VZ ABC DEFG HIJK LMNOP QRS & 
TUV W X & VZ ABC DEFG HIJK LMNOP QRS 

TUV W X VZ ABC DEFG HIJK LMNOP QRS & T 
UV W X & VZ ABC DEFG HIJK LMNOP QRS & TU 
V U X fi: VZ ABC DEFG HIJK LMNOP QRS & TUV 

W X & VZ ABC DEFG HIJK LMNOP QRS & TUV 
U X VZ ABC DEFG HIJK LMNOP QRS & TUV W 

X & VZ ABC DEFG HIJK LMNOP QRS .& TUV W 
X & VZ ABC DEFG HIJK LMNOP QRS & TUV W X 

& VZ ABC DEFG HIJK LMNOP QRS & TUV N X 
6c VZ ABC DEFG HIJK LMNOP QRS & TUV W X & 

VZ ABC DEFG HIJK LMNOP QRS «i TUV W X & 
VZ ABC DEFG HIJK LMNOP QRS & TUV W X V 
msm Z ABC DEFG HIJK LMNOP QRS & TUV W X fi: VZ 
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NUMBER GRAPHICS 

Now that you've had a chance to relax, here's a slightly more complex 
problem using a mix of SHIFT graphics and numbers. Notice that the 
numbers change in the design in a regular way. The program structure is 
somewhat different than the ones you've seen before but the program is 
not much longer. 




RUN 

lhH2KH3HH4hH5l-H6 
7hH8HH9hH10HHl HH2hH3l- 
+H4HH5HH6hH7hH8HH9hHl 
HH 1 HH 2 HH 3 HH 4 HH 5 HH 6 hf 
H7hH8HH9hH10HHl HH2HH3 
>H4hH5HH6HH7HH8HH9hH 
10HH1 hH2HH3HH4hH5HH6 
HH7I-H8HH9HH10HH1 hH2HH 
3 HH 4 HH 5 HH 6 HH 7 HH 8 HH 9 I- 
HH 10 HH 1 HH 2 HH 3 HH 4 HH 5 HH 
6HH7HH8HH9HH10HH1 HH2^ 
HH3HH4HH5HH6HH7HH8HH9 
HH10IHH1 HH2HH3HH4HH5H 
H6HH7HH8HH9hH10HHl HH2 

9 HH 10 
REflDV. 
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FINISH THE TABLE 

Put the missing leg on tlie table using SHIFT graphics. To do it without 
hints you have to figure out how to draw the whole table. However, if you 
would like hints here is a program that draws a one-legged table. 



RUN 

i 



r -I 
L J 

i I 

H ^ jg j ^^ RERDV« i^gij^ i ^^^ 
PUT THE OTHER LEG ON THE TABLE 




10 PRINT" I" 
20 PRINT" ♦#•" 
30 PRINT" 1" 
40 PRINT" rrs" 

50 PRINT" r 1" 

60 PRINT" >■ 

70 PRINT" I I" 
80 PRINT" '-'" 

REflDV. 

This drawing problem can lead to dozens of otiiers. Try to mal<e some 
up for your family and firiends. and have them be as creative in drawing and 
challenging you as well. 
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STORMY WEATHER 

The sea is not calm tonight, as you can see from the screen dump below. 
Under that is a puzzling sea. one that questions the very nature of calm- 
ness. Can you write programs for each of these screen dumps? 



RUN 

THE SEfl IS NOT CAL M TON IGHT, , ■ 

/\/^.yx/^/\r ▼ V wyww VNyxx-^f 

mm rv-\</\/r^^^^v^/Ny^y^^ 
msm rw^w^w\/-^y/rwww'w^\^\,r^ mmm 
/•>>y\/^^rw"w^y^.y\yrww^w^ 

'WWW ^ ^KTsy 



/\/fWWWw^\./^^^rwww/^sj^\/\/\^ 
frw\/^\y\/FWWWW%/-sy\ ^ 

y^^rwww\yrsys^wwww \^\y\^^ mmm 






RUN 

THE SEfl IS NOT CALM TONIGHT... 

▼ v ▼ v ^./n/??????????????^?'? 
?7??????????/-s^syv-sys f ▼ ▼ ▼VNy\y???7? 

?7????????????????/\/\/^Ny^\/\ f ▼ ▼ ▼\/^\/\ 

/???????????????????????/^^^^ 
www ▼\/'\/'s/???????????????????????/^x/\ 

????????????????????/ 
^^^7777777777^ 

^??????????^ 

^?????????????????? 
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SYMBOL ARITHMETIC 

Here is a game using numbers and SHIFT characters. Three symbols repres- 
ent numbers. You are asked to memorize the symbol/number equivalents 
and then do adding using the symbols. It is a good memory game that can 
be made quite complex. Write a program for this game. 




RUN 

HERE-'S fl LITTLE SVMBOL-NUMBER GAME: 
STUDV THIS TABLE OF VALUES: 
t " 1 

4 B 2 jffiSjj^M 
J. ■ 3 



UHEN VOU HAVE THE TABLE MEMORIZED mm 
PRESS 7? ■ 





HOW MUCH DO THESE ADD UP TO? 

TRV ANOTHER TIME. 
? 9 

TRV ANOTHER TIME. 
? 10 

VOU OOT IT DOWN! 
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SIMPLE ANIMATION Z 

Here are two simple animations you can make with SHIFT graphics. You ^ 

can actually get quite complex with them although, of course, you won't be ^ 

able to duplicate the work of Walt Disney or George Lucas. These two ^ 

clumps show a figure that moves up the screen changing position and <j 

posture. See if you can recreate the figures and have them move as in the ^ 

screen dumps. ^ 




Answers 



1 



10 PRINT" 
20 PRINT" 
30 PRINT" 
40 PRINT" 
50 PRINT" 
60 PRINT" 
70 PRINT" 
80 PRINT" 
90 PRINT" 
100 PRINT" 
110 PRINT" 

REflDV. 



WWV///" 

/ 

/ V 



Notice that the chin seems pushed off the face on lines 100 and 1 10. 
When you run the progrann you'll get the face properly aligned. The reason 
that these lines are offset is that your Commodore 64 automatically puts a 
space between the line number and the command following it. Since line 
numbers 10 to 99 have only two digits they line up. 100 and 110 have 
three digits so they push the command over one space. You have to back it 
up in your mind to reconstruct the image the program will run. This is 
important to remember when you list and edit SHIFT character graphics. 



10 

20 
30 
40 
50 
60 
70 
80 
90 

100 



PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 



\ 

I • 

\ 



I" 
/" 



/" 



I" 
I" 



110 PRINT" 
REflDV. 



V.>.>sWy/" 

/ ~ \" 

I ♦ 1" 
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10 INPUT"WHfiT IS VOUR NAME'S fit 
20 PRINT 

30 PRINT" r -" 

40 PRINT" M 



50 PRINT"M» READ THIS BOOK BV- •! 
€0 PRINT" 10 tl 
70 PRINT" ";«* 
80 PRINT" !• ♦ I 

90 PRINT" U 



100 PRINT" <^ 
REflDV. 



4 to 7 



10 PR I NT " r/i^/r/r/r/r/\'^s'^s^s^\'^\*^'' . 

20 PRINT" //rr #tf 
30 GOTO 10 

RERDV. 



10 PRINT" r— H4 
20 GOTO 10 

REflDV. 



1 PR I NT " di iOOii^vJlOOldl " j 

20 GOTO 10 

REflDV. 



7 

10 PRINT" rrrr l l W rfF -nn"j 
20 GOTO 10 

REflDV. 
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10 PRINT"flBC riEFG HIJK LMNOP 
20 PRINT"QRS & TUV N X & VZ 
30 GOTO 10 

REflDV. 

Notice that I used three lines in the progrann instead of two. Using the 
colon at the end of lines 10 and 20 creates the continuity of the program. 



10 FORXalTO10 
20 FORV=1TO10 
30 PRINT" HH'SV; 
40 NEXTV 
50 NEXTX 

REflDV. 

Notice that the changes in the nunnbers throughout the program are 
determined by the nested FOR/NEXT loops. It would be useful if you are 
not familiar with nested loops to trace the program step by step. For 
example, the X loop instructs you to print what is inside the Y loop 10 
times and then go back to the start and keep on repeating the Y loop 10 
full runs. Once you understand this and trace it through you should be able 
to use nested loops in many different contexts. 



10 



10 PRINT" I" 
20 PRINT" ♦♦#" 
30 PRINT" 1" 
40 PRINT" m" 

50 PRINT" r 1" 

€0 PRINT" <■ '" 

70 PRINT" II 11" 
80 PRINT" <-> ^" 

REflDV. 
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10 PR I NT "THE SEfi IS NOT CALM TONIGHT., 

30 PRINT"' 
40 GOTO20 



REflBV. 



10 PR I NT "THE SEfl IS NOT CALM TONIGHT... 

20 PR I NT " /^sy-^/-^y■^./^rvv▼■•^y\/^y " ; 

30 PR I NT " •?97?99?9?????'7?????'???? " ; 

40 g6tO20 
REflDV. 
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10 PR I NT "HERE'S fl LITTLE SVMBOL-NUtlBER GflME 

20 LETfl*= " ♦ " : LETB$= " +" = LETC*= " -^" 

30 PR I NT" STUD V THIS TfiBLE OF VALUES:" 

40 PRINT" «■ = 1" 

50 PRINT" + = 2" 

60 PRINT" = 3" 

70 PRINT 

80 PR I NT "WHEN VOU HAVE THE TABLE MEMORIZED" 

90 INPUT "PRESS 7";X 

100 IFX=7THENPRINTCHR*<147) 

110 LETV=INT<RND<1>*3)+1 

120 LETZ=INT<RND<1)*10)+1 

130 PR I NT "HOW MUCH DO THESE ADD UP TO?" 

140 FR0M«1T02 

150 IFV=1THENPRINT"» "; 

1S0 IFV=2THENPRINT"+ "i 

170 IFV=3THENPRINT"-^ "i 

180 NEXT 

190 INPUTN 

200 IFNsV*ZTHENPRINT"VOU GOT IT DOWN! "••END 
210 PR I NT "TRV ANOTHER TIME. " :GOTO190 

READV. 
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10 PRINT" *" 
20 PRINT" "--l-n" 
30 PRINT" ■>■" 
40 PRINT" II" 
50 PRINT 

60 FORX=1TO100:NEXT 
70 PRINT" r' 
80 PRINT" ^i-j" 
90 PRINT" -J-" 
100 PRINT" / \" 

110 PRINT 

120 FORX=1TO100:NEXT 
130 GOTO 10 

REflDV. 



10 PRINT" 1»" 
20 PRINT" i-l-n" 
30 PRINT" J-" 
40 PRINT" I I" 
50 PRINT 

60 FORX=lTOi00:NEXT 
70 PRINT" ♦" 
80 PRINT" r-l--'" 
90 PRINT" -Jt" 
100 PRINT" /• \" 

110 PRINT 

120 FORX=1TO100:NEXT 
130 PRINT" ♦" 
140 PRINT" \1/" 
150 PRINT" J." 
160 PRINT" / \" 

170 PRINT 

180 FORX»1TO100:NEXT 
190 GOTO 10 



REflDV. 



The key structural elements of these programs could be described as: 
PRINT Figure A 
PAUSE TO SEE IT 
PRINT Figure B 
PAUSE TO SEE IT 
GO BACK TO FIGURE A 

Teasing out the structure of programs in this way can help you create 
your own programs or modify those other people design. 
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Appendix 
Planning Sheets 

These pages are designed to help you solve some of the problems In this 
book. They consist of a series of TV or monitor screens with room under 
them to write lines of code. The^ can be used in many different ways and 
some readers will certainly develop their own aids to solve the puzzles. Here 
is an example of how thq^ can be used for two puzzle versions of this simple 
program: 

10 PRINT "HOW OLD ARE YOU?" 

20 INPUT X 

30 LET Y=1983-X 

40 PRINT "YOU WERE BORN IN ";Y 

Puzzle version l:missing line of code 

10 PRINT "HOW OLD RRE YOU?" 
20 INPUT X 

30 PRINT "?????????????" 

40 PRINT "YOU WERE BORN IN ";Y 

Puzzle version 2:scrambled line number version 
10 INPUT X 

20 PRINT "HOW OLD RRE YOU?" 
30 PRINT "YOU WERE BORN IN ";Y 
40 LET Y=1983-X 
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Sketch Pad for 
SHIFT Graphics and Text 
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30 ? (\eed+e ac+- 




30 y*y«dr-Kxi? 
Old 



M6 PR, Vo^ wert 
borftin"j y 



3o U6T y* 




i/D you were 
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